home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / yahtze1a / frmgameo.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-09-26  |  7.6 KB  |  232 lines
  1. VERSION 5.00
  2. Begin VB.Form frmGameOver 
  3.    BackColor       =   &H00C0C0C0&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Game Over"
  6.    ClientHeight    =   2085
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   3855
  10.    ControlBox      =   0   'False
  11.    Icon            =   "frmGameOver.frx":0000
  12.    LinkTopic       =   "Form2"
  13.    MaxButton       =   0   'False
  14.    MinButton       =   0   'False
  15.    Picture         =   "frmGameOver.frx":000C
  16.    ScaleHeight     =   2085
  17.    ScaleWidth      =   3855
  18.    StartUpPosition =   1  'CenterOwner
  19.    Begin VB.CommandButton cmdOK 
  20.       Caption         =   "&OK"
  21.       Height          =   330
  22.       Left            =   195
  23.       TabIndex        =   8
  24.       Top             =   1440
  25.       Width           =   840
  26.    End
  27.    Begin VB.Line Line1 
  28.       BorderWidth     =   2
  29.       X1              =   1320
  30.       X2              =   3600
  31.       Y1              =   1560
  32.       Y2              =   1560
  33.    End
  34.    Begin VB.Label labRTotal 
  35.       Alignment       =   1  'Right Justify
  36.       Appearance      =   0  'Flat
  37.       BackColor       =   &H80000005&
  38.       BackStyle       =   0  'Transparent
  39.       Caption         =   "RTotal"
  40.       BeginProperty Font 
  41.          Name            =   "MS Sans Serif"
  42.          Size            =   9.75
  43.          Charset         =   0
  44.          Weight          =   700
  45.          Underline       =   0   'False
  46.          Italic          =   0   'False
  47.          Strikethrough   =   0   'False
  48.       EndProperty
  49.       ForeColor       =   &H80000008&
  50.       Height          =   255
  51.       Left            =   2760
  52.       TabIndex        =   7
  53.       Top             =   1200
  54.       Width           =   855
  55.    End
  56.    Begin VB.Label lblRightTotal 
  57.       Appearance      =   0  'Flat
  58.       AutoSize        =   -1  'True
  59.       BackColor       =   &H80000005&
  60.       BackStyle       =   0  'Transparent
  61.       Caption         =   "Right Total:"
  62.       BeginProperty Font 
  63.          Name            =   "MS Sans Serif"
  64.          Size            =   9.75
  65.          Charset         =   0
  66.          Weight          =   700
  67.          Underline       =   0   'False
  68.          Italic          =   0   'False
  69.          Strikethrough   =   0   'False
  70.       EndProperty
  71.       ForeColor       =   &H80000008&
  72.       Height          =   240
  73.       Left            =   1440
  74.       TabIndex        =   6
  75.       Top             =   1200
  76.       Width           =   1215
  77.    End
  78.    Begin VB.Label lblLeftTotal 
  79.       Appearance      =   0  'Flat
  80.       AutoSize        =   -1  'True
  81.       BackColor       =   &H80000005&
  82.       BackStyle       =   0  'Transparent
  83.       Caption         =   "Left Total:"
  84.       BeginProperty Font 
  85.          Name            =   "MS Sans Serif"
  86.          Size            =   9.75
  87.          Charset         =   0
  88.          Weight          =   700
  89.          Underline       =   0   'False
  90.          Italic          =   0   'False
  91.          Strikethrough   =   0   'False
  92.       EndProperty
  93.       ForeColor       =   &H80000008&
  94.       Height          =   240
  95.       Left            =   1605
  96.       TabIndex        =   5
  97.       Top             =   600
  98.       Width           =   1050
  99.    End
  100.    Begin VB.Label lblBonusTotal 
  101.       Appearance      =   0  'Flat
  102.       AutoSize        =   -1  'True
  103.       BackColor       =   &H80000005&
  104.       BackStyle       =   0  'Transparent
  105.       Caption         =   "Bonus Total:"
  106.       BeginProperty Font 
  107.          Name            =   "MS Sans Serif"
  108.          Size            =   9.75
  109.          Charset         =   0
  110.          Weight          =   700
  111.          Underline       =   0   'False
  112.          Italic          =   0   'False
  113.          Strikethrough   =   0   'False
  114.       EndProperty
  115.       ForeColor       =   &H80000008&
  116.       Height          =   240
  117.       Left            =   1335
  118.       TabIndex        =   4
  119.       Top             =   900
  120.       Width           =   1320
  121.    End
  122.    Begin VB.Label lblGameTotal 
  123.       Appearance      =   0  'Flat
  124.       AutoSize        =   -1  'True
  125.       BackColor       =   &H80000005&
  126.       BackStyle       =   0  'Transparent
  127.       Caption         =   "Game Total:"
  128.       BeginProperty Font 
  129.          Name            =   "MS Sans Serif"
  130.          Size            =   9.75
  131.          Charset         =   0
  132.          Weight          =   700
  133.          Underline       =   0   'False
  134.          Italic          =   0   'False
  135.          Strikethrough   =   0   'False
  136.       EndProperty
  137.       ForeColor       =   &H00FF0000&
  138.       Height          =   240
  139.       Left            =   1380
  140.       TabIndex        =   3
  141.       Top             =   1680
  142.       Width           =   1290
  143.    End
  144.    Begin VB.Label labLTotal 
  145.       Alignment       =   1  'Right Justify
  146.       Appearance      =   0  'Flat
  147.       BackColor       =   &H80000005&
  148.       BackStyle       =   0  'Transparent
  149.       Caption         =   "LTotal"
  150.       BeginProperty Font 
  151.          Name            =   "MS Sans Serif"
  152.          Size            =   9.75
  153.          Charset         =   0
  154.          Weight          =   700
  155.          Underline       =   0   'False
  156.          Italic          =   0   'False
  157.          Strikethrough   =   0   'False
  158.       EndProperty
  159.       ForeColor       =   &H80000008&
  160.       Height          =   255
  161.       Left            =   2760
  162.       TabIndex        =   2
  163.       Top             =   600
  164.       Width           =   855
  165.    End
  166.    Begin VB.Label labBTotal 
  167.       Alignment       =   1  'Right Justify
  168.       Appearance      =   0  'Flat
  169.       BackColor       =   &H80000005&
  170.       BackStyle       =   0  'Transparent
  171.       Caption         =   "BTotal"
  172.       BeginProperty Font 
  173.          Name            =   "MS Sans Serif"
  174.          Size            =   9.75
  175.          Charset         =   0
  176.          Weight          =   700
  177.          Underline       =   0   'False
  178.          Italic          =   0   'False
  179.          Strikethrough   =   0   'False
  180.       EndProperty
  181.       ForeColor       =   &H80000008&
  182.       Height          =   255
  183.       Left            =   2760
  184.       TabIndex        =   1
  185.       Top             =   900
  186.       Width           =   855
  187.    End
  188.    Begin VB.Label labGTotal 
  189.       Alignment       =   1  'Right Justify
  190.       Appearance      =   0  'Flat
  191.       BackColor       =   &H80000005&
  192.       BackStyle       =   0  'Transparent
  193.       Caption         =   "Label4"
  194.       BeginProperty Font 
  195.          Name            =   "MS Sans Serif"
  196.          Size            =   9.75
  197.          Charset         =   0
  198.          Weight          =   700
  199.          Underline       =   0   'False
  200.          Italic          =   0   'False
  201.          Strikethrough   =   0   'False
  202.       EndProperty
  203.       ForeColor       =   &H00000080&
  204.       Height          =   255
  205.       Left            =   2760
  206.       TabIndex        =   0
  207.       Top             =   1680
  208.       Width           =   855
  209.    End
  210. Attribute VB_Name = "frmGameOver"
  211. Attribute VB_GlobalNameSpace = False
  212. Attribute VB_Creatable = False
  213. Attribute VB_PredeclaredId = True
  214. Attribute VB_Exposed = False
  215. Private Sub cmdOK_Click()
  216.   'Unload form
  217.   Unload Me
  218. End Sub
  219. Private Sub Form_Load()
  220.   'Play clapping wav sound
  221.   If frmMain.mnuSound.Checked Then PlaySound App.Path & "\Clap.wav"
  222.   'Fill totals
  223.   labLTotal.Caption = lColTotal '//Left column total without bonus
  224.   labBTotal.Caption = Bonus63 '//Left column bonus points
  225.   labRTotal.Caption = rColTotal '//Right column total
  226.   labGTotal.Caption = GameTotal '//Game total
  227. End Sub
  228. Private Sub Form_KeyUp(KeyCode As Integer, Shift As Integer)
  229.   '//User pressed the escape key
  230.   If KeyCode = vbKeyEscape Then Unload Me
  231. End Sub
  232.